home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Communications / UUCon / Source / sweep.psw < prev    next >
Encoding:
Text File  |  1995-06-12  |  679 b   |  38 lines
  1. defineps PSWsweep(float x; float y; float radius; float degree)
  2.     gsave
  3.  
  4.     1.0 setgray                % Draw the boarder circle
  5.     x y radius 0 360 arc
  6.     fill
  7.  
  8.     1 setlinewidth                % Fill with white
  9.     0.0 setgray
  10.     x y radius 1 add 0 360 arc
  11.     stroke
  12.     
  13.     -1.0 degree lt 361 degree gt and    % If the degree given is within the circle, sweep..
  14.     {
  15.  
  16.     % Draw three wedges fading from black and increasing in width...
  17.  
  18.         0.66666 setgray
  19.         x y radius 458.0 degree sub 461.0 degree sub arc
  20.         x y lineto
  21.         fill
  22.  
  23.         0.33333 setgray
  24.         x y radius 454.0 degree sub 457.0 degree sub arc
  25.         x y lineto
  26.         fill
  27.  
  28.         0.0 setgray
  29.         x y radius 450.0 degree sub 453.0 degree sub arc
  30.         x y lineto 
  31.         fill
  32.  
  33.  
  34.     } if
  35.  
  36.     grestore
  37. endps
  38.